("生成带条形图的表格")

f = List /@ Import["F:\\桌面\\带条形图的表格_测试数据.csv"];(*这里替换数据*)
bars = Table[
   BarChart[Labeled[#, Row[{Floor[#[[1]]*100], "%"}], After] & /@ i,
    ChartLayout -> "Stacked",
    BarOrigin -> Left,
    ChartStyle -> {RGBColor[0, 0.6, 1, 0.7], LightGray},
    Axes -> False], {i, f}];
data = {{"很感兴趣，VeryMuch", 24, bars[[1]]},
   {"一般，littel bit", 2, bars[[2]]},
   {"不感兴趣，not at all", 15, bars[[3]]}};
Text@Grid[
  Prepend[data, 
   Text[Style[#, Bold, 15, FontFamily -> "Roman"]] & /@ {"选项", "小计", 
     "比例"}],
  Background -> {None, {LightGray}},
  Spacings -> {3, 1},
  Alignment -> Center,
  Frame -> All]
